;;ARGUS42%      LNHD12:  CHD132:  LNTX46:  CHTX132:  LNTR08:  CHTR132:
;-NNNNNNNNNNN-  LNHDxx:  CHDxxx:  LNTXxx:  CHTXxxx:  LNTRxx:  CHTRxxx:
;
;
;                     ARGUS POS REPORTING - NUMBER 42% DETAIL PERCENTAGE
;                                           REVISION #1
;
;     SALES MUST BE ACCUMULATED BY SUPERCATEGORY ON REPORT 30
;                   POSITION 23 INDICATES SUPERCAT        
;   PASS 1 ACCUMULATE SALES BY DAY, WEEK, MONTH, QUARTER, AND YEAR
;
;    DAY SALES
Z1,0130^^^^^^^^^^^^^^^3^^,C0144,R1:
Z1,0130^^^^^^^^^^^^^^^4^^,C0144,R1:
Z1,0130^^^^^^^^^^^^^^^5^^,C0144,R1:
Z1,0130^^^^^^^^^^^^^^^6^^,C0144,R1:
Z1,0130^^^^^^^^^^^^^^^7^^,C0144,R1:
Z1,0130^^^^^^^^^^^^^^^8^^,C0144,R1:
;    WEEK SALES
Z1.0130^^^^^^^^^^^^^^^3^^,C0145,R2:C0144,R2:
Z1,0130^^^^^^^^^^^^^^^4^^,C0145,R2:C0144,R2:
Z1,0130^^^^^^^^^^^^^^^5^^,C0145,R2:C0144,R2:
Z1,0130^^^^^^^^^^^^^^^6^^,C0145,R2:C0144,R2:
Z1,0130^^^^^^^^^^^^^^^7^^,C0145,R2:C0144,R2:
Z1,0130^^^^^^^^^^^^^^^8^^,C0145,R2:C0144,R2:
;     MONTH SALES
Z1.0130^^^^^^^^^^^^^^^3^^,C0146,R3:C0144,R3:
Z1,0130^^^^^^^^^^^^^^^4^^,C0146,R3:C0144,R3:
Z1,0130^^^^^^^^^^^^^^^5^^,C0146,R3:C0144,R3:
Z1,0130^^^^^^^^^^^^^^^6^^,C0146,R3:C0144,R3:
Z1,0130^^^^^^^^^^^^^^^7^^,C0146,R3:C0144,R3:
Z1,0130^^^^^^^^^^^^^^^8^^,C0146,R3:C0144,R3:
;    QUARTER SALES
Z1,0130^^^^^^^^^^^^^^^3^^,C0147,R4:C0144,R4:
Z1,0130^^^^^^^^^^^^^^^4^^,C0147,R4:C0144,R4:
Z1,0130^^^^^^^^^^^^^^^5^^,C0147,R4:C0144,R4:
Z1,0130^^^^^^^^^^^^^^^6^^,C0147,R4:C0144,R4:
Z1,0130^^^^^^^^^^^^^^^7^^,C0147,R4:C0144,R4:
Z1,0130^^^^^^^^^^^^^^^8^^,C0147,R4:C0144,R4:
;    YEAR SALES
Z1,0130^^^^^^^^^^^^^^^3^^,C0148,R5:C0144,R5:
Z1,0130^^^^^^^^^^^^^^^4^^,C0148,R5:C0144,R5:
Z1,0130^^^^^^^^^^^^^^^5^^,C0148,R5:C0144,R5:
Z1,0130^^^^^^^^^^^^^^^6^^,C0148,R5:C0144,R5:
Z1,0130^^^^^^^^^^^^^^^7^^,C0148,R5:C0144,R5:
Z1,0130^^^^^^^^^^^^^^^8^^,C0148,R5:C0144,R5:
;
;     SET PERCENTAGE
[R6=10000.]
;
;   PASS 2 PRODUCE REPORT
;
;    PRINT HEADER
Z1,001400^^^^^^^^^^^^^^^^,C3001,L4,S2,A24:C3002,L5,S2,A24:C3003,L6,S2,A24:C3004,L7,S2,A24:
Z1,001401^^^^^^^^^^^^^^^^,C3001,L4,S106,A24:C3002,L5,S106,A24:C3003,L6,S106,A24:C3004,L7,S106,A24:
L4,S39,   "       A R G U S   D A I L Y    S A L E S    R E P O R T I N G           ":
L5,S39,   "              ---- 42% FOOD ITEM PERCENTAGE REPORT ----                  ":
L08,S61,   "                         page xxxx   FFLLL    Run MM-DD-YY":
L8,S111,A8,ID:L8,S99,A5,IF:L8,S91,A4,IP:L7,S60,A12,IY:
;
L9,S02,     "=======================================================================":
L9,S73,     "=======================================================================":
;
;          123456789012345678901234567890123456789012345678901234567890
;                   2         3         4         5         6         7
L11,S11,  "    SALES ITEM       $SALES       %DAY        %WEEK         ":
L11,S69,"%MONTH       %QUARTER         %YEAR                           ":
L12,S02,   "========================================================================":
L12,S74,   "========================================================================":
;
;
[R10=0]:[R11=0]:[R12=0]:[R13=0]:R14=0]:
;
;
Z2,0142XXXX^^^^^^^XXXXX^^;
C0144,R10:
C0145,R11:C0144,R11:
C0146,R12:C0144,R12:
C0147,R13:C0144,R13:
C0148,R14:C0144,R14:
;
;   PICKUP SALES ITEM & PLU, $SALES FROM REPORT 42                                                         
IX16,S13,A5:C3001,S19,A08:
C0010,S33,A6:
;
;     CALCULATE PERCENTAGES
;
[R20=(R10/R1)*R6]:
[R21=(R11/R2)*R6]:
[R22=(R12/R3)*R6]:
[R23=(R13/R4)*R6]:
[R24=(R14/R5)*R6]:
;
;
C0020,S45,A7,P2:C0021,S57,A7,P2:C0022,S70,A7,P2:C0023,S85,A7,P2:C0024,S101,A7,P2:
;
[R10=0]:[R11=0]:[R12=0]:[R13=0]:[R14=0]
;
;;END                